Public Class CMPBase
    Private msOwnerName As String = ""
    Private msObjectName As String = ""

    Private mlSourceServerID As Long
    Private mlSourceDatabaseID As Long
    Private mlSourceDatabaseRevID As Long

    Private mlTargetServerID As Long
    Private mlTargetDatabaseID As Long
    Private mlTargetDatabaseRevID As Long

    Private mlSourceObjectID As Long
    Private mlSourceObjectRevID As Long

    Private mlTargetObjectID As Long
    Private mlTargetObjectRevID As Long

    Private msSourceLastModified As String = ""
    Private msTargetLastModified As String = ""

    Private msSourceHash As String = ""
    Private msTargetHash As String = ""

    Private mbSourceNewer As Boolean = False
    Private mbTargetNewer As Boolean = False
    Private mbSourceAndTargetEqual As Boolean = False

    Public Property SourceServerID() As Long
        Get
            Return mlSourceServerID
        End Get
        Set(ByVal value As Long)
            mlSourceServerID = value
        End Set
    End Property

    Public Property SourceDatabaseID() As Long
        Get
            Return mlSourceDatabaseID
        End Get
        Set(ByVal value As Long)
            mlSourceDatabaseID = value
        End Set
    End Property

    Public Property SourceDatabaseRevID() As Long
        Get
            Return mlSourceDatabaseRevID
        End Get
        Set(ByVal value As Long)
            mlSourceDatabaseRevID = value
        End Set
    End Property

    Public Property TargetServerID() As Long
        Get
            Return mlTargetServerID
        End Get
        Set(ByVal value As Long)
            mlTargetServerID = value
        End Set
    End Property

    Public Property TargetDatabaseID() As Long
        Get
            Return mlTargetDatabaseID
        End Get
        Set(ByVal value As Long)
            mlTargetDatabaseID = value
        End Set
    End Property

    Public Property TargetDatabaseRevID() As Long
        Get
            Return mlTargetDatabaseRevID
        End Get
        Set(ByVal value As Long)
            mlTargetDatabaseRevID = value
        End Set
    End Property

    Public Property OwnerName() As String
        Get
            Return msOwnerName
        End Get
        Set(ByVal value As String)
            msOwnerName = value
        End Set
    End Property

    Public Property ObjectName() As String
        Get
            Return msObjectName
        End Get
        Set(ByVal value As String)
            msObjectName = value
        End Set
    End Property

    Public Property SourceObjectID() As Long
        Get
            Return mlSourceObjectID
        End Get
        Set(ByVal value As Long)
            mlSourceObjectID = value
        End Set
    End Property

    Public Property SourceObjectRevID() As Long
        Get
            Return mlSourceObjectRevID
        End Get
        Set(ByVal value As Long)
            mlSourceObjectRevID = value
        End Set
    End Property

    Public Property TargetObjectID() As Long
        Get
            Return mlTargetObjectID
        End Get
        Set(ByVal value As Long)
            mlTargetObjectID = value
        End Set
    End Property

    Public Property TargetObjectRevID() As Long
        Get
            Return mlTargetObjectRevID
        End Get
        Set(ByVal value As Long)
            mlTargetObjectRevID = value
        End Set
    End Property

    Public Property SourceLastModified() As String
        Get
            Return msSourceLastModified
        End Get
        Set(ByVal value As String)
            msSourceLastModified = value
        End Set
    End Property

    Public Property TargetLastModified() As String
        Get
            Return msTargetLastModified
        End Get
        Set(ByVal value As String)
            msTargetLastModified = value
        End Set
    End Property

    Public Property SourceAndTargetEqual() As Boolean
        Get
            Return mbSourceAndTargetEqual
        End Get
        Set(ByVal value As Boolean)
            mbSourceAndTargetEqual = value
        End Set
    End Property

    Public Property SourceNewer() As Boolean
        Get
            Return mbSourceNewer
        End Get
        Set(ByVal value As Boolean)
            mbSourceNewer = value
        End Set
    End Property

    Public Property TargetNewer() As Boolean
        Get
            Return mbTargetNewer
        End Get
        Set(ByVal value As Boolean)
            mbTargetNewer = value
        End Set
    End Property

    Public Property SourceHash() As String
        Get
            Return msSourceHash
        End Get
        Set(ByVal value As String)
            msSourceHash = value
        End Set
    End Property

    Public Property TargetHash() As String
        Get
            Return msTargetHash
        End Get
        Set(ByVal value As String)
            msTargetHash = value
        End Set
    End Property
End Class
